(printout t "Test loop Program: While" crlf)
(bind ?i 3)
( 
    while (> ?i 0)
    (printout t "Var i = " ?i crlf)
    (-- ?i)
)

(printout t "Test loop Program: If" crlf)
(bind ?i 10)
(
    if (> ?i 10) then
    	(printout t "Var i is greater than 10" crlf)
    elif (= ?i 10) then
    	(printout t "Var i is equal to 10" crlf)
    else
    	(printout t "Var i is lesser than 10" crlf)
)